 Loading |
|
Loading |
| VBScript |
| JavaScript |
| Powershell |
Search Options: Stop a Service
|
||
|
Msgbox StartService("Alerter") ' --------------------------------------- - Stop a Service - Private Function StopService(strService) On Error Resume Next Dim oWshShell : Set oWshShell = CreateObject("WScript.Shell") Dim oService, iTimeOut, strComputername, tt strComputername = oWshShell.ExpandEnvironmentStrings("%COMPUTERNAME%") iTimeOut = 60 Set oService = GetObject("WinNT://" & strComputername & "/" & strService) If (Not oService.status = 1) Then oService.Stop wscript.sleep(250) For tt = 0 to iTimeOut If (oService.status = 1) Then Exit For Else wscript.sleep(1000) End If Next End if If (IsObject(oService)) Then Set oService = Nothing If (IsObject(oWshShell)) Then Set oWshShell = Nothing If ( Err.Number <> 0 ) Then StopService = "ERROR: " & Err.Number & " " & Err.Description Err.Clear Else StopService = strService & " stopped successful" End If End Function | ||
© 2008 - 2013 Boris Toll :: Scripts available: 6.481 :: :: scriptbox.toll.at :: :: powered by www.toll.at :: | ||
